/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_01 / evalpi / calcpi

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0a f4 20 3c 50 | 49 3e 0d 00 14 2d f4 20 |..... <P|I>...-. |
|00000010| 53 54 41 52 54 20 4f 46 | 20 50 52 4f 47 52 41 4d |START OF| PROGRAM|
|00000020| 20 20 49 4e 49 54 49 41 | 4c 49 53 45 20 56 41 52 |  INITIA|LISE VAR|
|00000030| 49 41 42 4c 45 53 20 0d | 00 1e 06 3a 20 0d 00 28 |IABLES .|...: ..(|
|00000040| 3d 46 31 25 3d 30 3a 4c | 31 25 3d 30 3a 4d 31 25 |=F1%=0:L|1%=0:M1%|
|00000050| 3d 30 3a 50 32 25 3d 30 | 3a 51 31 25 3d 30 3a 58 |=0:P2%=0|:Q1%=0:X|
|00000060| 31 25 3d 30 3a 4b 31 25 | 3d 30 3a 44 50 25 3d 30 |1%=0:K1%|=0:DP%=0|
|00000070| 3a 63 6f 75 6e 74 25 3d | 30 20 0d 00 32 08 54 3d |:count%=|0 ..2.T=|
|00000080| 30 20 0d 00 3c 16 42 25 | 3d 31 30 30 30 30 30 3a |0 ..<.B%|=100000:|
|00000090| 20 f4 20 42 41 53 45 20 | 0d 00 46 06 3a 20 0d 00 | . BASE |..F.: ..|
|000000a0| 50 3c db 3a f1 22 45 76 | 61 6c 75 61 74 69 6e 67 |P<.:."Ev|aluating|
|000000b0| 20 50 49 3a 22 27 3a e8 | 22 48 6f 77 20 6d 61 6e | PI:"':.|"How man|
|000000c0| 79 20 70 6c 61 63 65 73 | 3f 20 22 44 50 25 3a 4c |y places|? "DP%:L|
|000000d0| 25 3d 44 50 25 81 35 2b | 32 20 0d 00 5a 34 de 20 |%=DP%.5+|2 ..Z4. |
|000000e0| 63 6f 75 6e 74 25 20 31 | 32 2c 41 25 28 4c 25 2b |count% 1|2,A%(L%+|
|000000f0| 32 29 2c 42 25 28 4c 25 | 2b 32 29 2c 58 25 28 4c |2),B%(L%|+2),X%(L|
|00000100| 25 2b 32 29 2c 59 25 28 | 4c 25 2b 32 29 20 0d 00 |%+2),Y%(|L%+2) ..|
|00000110| 64 29 db 3a f1 22 45 76 | 61 6c 75 61 74 69 6e 67 |d).:."Ev|aluating|
|00000120| 20 50 49 20 20 74 6f 20 | 22 c3 44 50 25 22 20 70 | PI  to |".DP%" p|
|00000130| 6c 61 63 65 73 22 20 0d | 00 6e 0d f1 c4 33 30 2c |laces" .|.n...30,|
|00000140| 22 2d 22 29 0d 00 78 06 | 3a 20 0d 00 82 08 d1 3d |"-")..x.|: .....=|
|00000150| 30 20 0d 00 8c 0a f3 20 | 4e 31 25 20 0d 00 96 0f |0 ..... |N1% ....|
|00000160| e3 56 25 3d 31 20 b8 4e | 31 25 20 0d 00 a0 0a f2 |.V%=1 .N|1% .....|
|00000170| 74 65 72 6d 20 0d 00 aa | 06 ed 20 0d 00 b4 0d f1 |term ...|.. .....|
|00000180| c4 33 30 2c 22 2d 22 29 | 0d 00 be 33 54 3d 91 20 |.30,"-")|...3T=. |
|00000190| 81 31 30 30 3a 48 25 3d | 54 20 81 33 36 30 30 3a |.100:H%=|T .3600:|
|000001a0| 4d 25 3d 28 54 20 83 33 | 36 30 30 29 81 36 30 3a |M%=(T .3|600).60:|
|000001b0| 53 25 3d 28 54 20 83 36 | 30 29 20 0d 00 c8 15 f2 |S%=(T .6|0) .....|
|000001c0| 6f 75 74 3a f4 20 50 52 | 49 4e 54 2d 4f 55 54 20 |out:. PR|INT-OUT |
|000001d0| 0d 00 d2 26 f1 22 54 49 | 4d 45 3a 20 22 c3 54 22 |...&."TI|ME: ".T"|
|000001e0| 20 28 22 c3 48 25 22 3a | 22 c3 4d 25 22 3a 22 c3 | (".H%":|".M%":".|
|000001f0| 53 25 22 29 22 20 0d 00 | dc 35 f1 22 54 45 52 4d |S%")" ..|.5."TERM|
|00000200| 53 3a 20 22 c3 21 63 6f | 75 6e 74 25 22 2f 22 c3 |S: ".!co|unt%"/".|
|00000210| 21 28 63 6f 75 6e 74 25 | 2b 34 29 22 2f 22 c3 21 |!(count%|+4)"/".!|
|00000220| 28 63 6f 75 6e 74 25 2b | 38 29 20 0d 00 e6 06 3a |(count%+|8) ....:|
|00000230| 20 0d 00 f0 06 e0 20 0d | 00 fa 06 3a 20 0d 01 04 | ..... .|...: ...|
|00000240| 1f f4 20 44 41 54 41 20 | 46 4f 52 20 41 52 43 54 |.. DATA |FOR ARCT|
|00000250| 41 4e 20 52 4f 55 54 49 | 4e 45 53 20 0d 01 0e 08 |AN ROUTI|NES ....|
|00000260| dc 20 33 20 0d 01 18 0d | dc 20 38 2c 32 34 2c 31 |. 3 ....|. 8,24,1|
|00000270| 20 0d 01 22 0d dc 20 35 | 37 2c 38 2c 31 20 0d 01 | ..".. 5|7,8,1 ..|
|00000280| 2c 0e dc 20 32 33 39 2c | 34 2c 31 20 0d 01 36 06 |,.. 239,|4,1 ..6.|
|00000290| 3a 20 0d 01 40 19 f4 20 | 4d 4f 4e 49 54 4f 52 49 |: ..@.. |MONITORI|
|000002a0| 4e 47 20 52 4f 55 54 49 | 4e 45 20 0d 01 4a 0b dd |NG ROUTI|NE ..J..|
|000002b0| f2 74 65 72 6d 20 0d 01 | 54 0f f3 58 25 2c 4d 25 |.term ..|T..X%,M%|
|000002c0| 2c 46 31 25 20 0d 01 5e | 22 f2 61 72 63 74 61 6e |,F1% ..^|".arctan|
|000002d0| 3a 21 28 63 6f 75 6e 74 | 25 2b 34 2a 56 25 2d 34 |:!(count|%+4*V%-4|
|000002e0| 29 3d 4a 25 3a f1 20 0d | 01 68 0b f2 6d 75 6c 78 |)=J%:. .|.h..mulx|
|000002f0| 6d 20 0d 01 72 1a e7 46 | 31 25 3d 31 3a f2 61 64 |m ..r..F|1%=1:.ad|
|00000300| 64 79 78 3a 8b f2 73 75 | 62 79 78 20 0d 01 7c 06 |dyx:..su|byx ..|.|
|00000310| e1 20 0d 01 86 06 3a 20 | 0d 01 90 13 f4 20 41 52 |. ....: |..... AR|
|00000320| 43 54 41 4e 20 28 31 2f | 58 29 20 0d 01 9a 0d dd |CTAN (1/|X) .....|
|00000330| f2 61 72 63 74 61 6e 20 | 0d 01 a4 2e f1 c2 22 20 |.arctan |......" |
|00000340| 20 22 2b c3 4d 25 2c 33 | 29 22 2a 41 52 43 54 41 | "+.M%,3|)"*ARCTA|
|00000350| 4e 28 31 2f 22 c3 58 25 | 22 29 20 22 8a 31 38 29 |N(1/".X%|") ".18)|
|00000360| 22 3a 20 22 3b 20 0d 01 | ae 0e e3 49 25 3d 30 20 |": "; ..|...I%=0 |
|00000370| b8 4c 25 20 0d 01 b8 16 | 42 25 28 49 25 29 3d 30 |.L% ....|B%(I%)=0|
|00000380| 3a 58 25 28 49 25 29 3d | 30 20 0d 01 c2 06 ed 20 |:X%(I%)=|0 ..... |
|00000390| 0d 01 cc 0a 50 32 25 3d | 31 20 0d 01 d6 1b 42 25 |....P2%=|1 ....B%|
|000003a0| 28 31 29 3d 42 25 3a 45 | 25 3d 58 25 3a f2 64 69 |(1)=B%:E|%=X%:.di|
|000003b0| 76 62 62 65 20 0d 01 e0 | 0e e3 49 25 3d 31 20 b8 |vbbe ...|..I%=1 .|
|000003c0| 4c 25 20 0d 01 ea 12 58 | 25 28 49 25 29 3d 42 25 |L% ....X|%(I%)=B%|
|000003d0| 28 49 25 29 20 0d 01 f4 | 06 ed 20 0d 01 fe 06 3a |(I%) ...|.. ....:|
|000003e0| 20 0d 02 08 2c 46 25 3d | 2d 31 3a e7 58 25 3c 31 | ...,F%=|-1:.X%<1|
|000003f0| 34 37 3a 45 25 3d 58 25 | 2a 58 25 3a 54 25 3d 30 |47:E%=X%|*X%:T%=0|
|00000400| 3a 8b 45 25 3d 58 25 3a | 54 25 3d 31 20 0d 02 12 |:.E%=X%:|T%=1 ...|
|00000410| 2e 4a 25 3d 31 3a f5 20 | 4a 25 3d 4a 25 2b 32 3a |.J%=1:. |J%=J%+2:|
|00000420| f1 8a 32 34 2c 56 25 2b | 31 29 c2 22 20 20 20 20 |..24,V%+|1)."    |
|00000430| 20 22 2b c3 4a 25 2c 36 | 29 3b 20 0d 02 1c 18 e3 | "+.J%,6|); .....|
|00000440| 4e 25 3d 30 20 b8 54 25 | 3a f2 64 69 76 62 62 65 |N%=0 .T%|:.divbbe|
|00000450| 3a ed 20 0d 02 26 0c f2 | 64 69 76 61 62 6a 20 0d |:. ..&..|divabj .|
|00000460| 02 30 19 e7 46 25 3d 31 | 3a f2 61 64 64 78 61 3a |.0..F%=1|:.addxa:|
|00000470| 8b f2 73 75 62 78 61 20 | 0d 02 3a 0d 46 25 3d 46 |..subxa |..:.F%=F|
|00000480| 25 2a 2d 31 20 0d 02 44 | 0c fd 50 32 25 3e 4c 25 |%*-1 ..D|..P2%>L%|
|00000490| 20 0d 02 4e 06 e1 20 0d | 02 58 06 3a 20 0d 02 62 | ..N.. .|.X.: ..b|
|000004a0| 21 f4 20 44 49 56 49 44 | 45 28 42 2c 42 2c 45 29 |!. DIVID|E(B,B,E)|
|000004b0| 20 2d 20 42 5b 5d 3a 3d | 42 5b 5d 2f 45 20 0d 02 | - B[]:=|B[]/E ..|
|000004c0| 6c 0d dd f2 64 69 76 62 | 62 65 20 0d 02 76 09 43 |l...divb|be ..v.C|
|000004d0| 25 3d 30 20 0d 02 80 10 | e3 49 25 3d 50 32 25 20 |%=0 ....|.I%=P2% |
|000004e0| b8 4c 25 20 0d 02 8a 12 | 51 31 25 3d 42 25 28 49 |.L% ....|Q1%=B%(I|
|000004f0| 25 29 2b 43 25 20 0d 02 | 94 11 51 25 3d a8 28 51 |%)+C% ..|..Q%=.(Q|
|00000500| 31 25 2f 45 25 29 20 0d | 02 9e 0e 42 25 28 49 25 |1%/E%) .|...B%(I%|
|00000510| 29 3d 51 25 20 0d 02 a8 | 0d 53 25 3d 51 25 2a 45 |)=Q% ...|.S%=Q%*E|
|00000520| 25 20 0d 02 b2 13 43 25 | 3d 28 51 31 25 2d 53 25 |% ....C%|=(Q1%-S%|
|00000530| 29 2a 42 25 20 0d 02 bc | 06 ed 20 0d 02 c6 19 e7 |)*B% ...|.. .....|
|00000540| 42 25 28 50 32 25 29 3d | 30 3a 50 32 25 3d 50 32 |B%(P2%)=|0:P2%=P2|
|00000550| 25 2b 31 20 0d 02 d0 06 | e1 20 0d 02 da 06 3a 20 |%+1 ....|. ....: |
|00000560| 0d 02 e4 22 f4 20 44 49 | 56 49 44 45 20 28 41 2c |...". DI|VIDE (A,|
|00000570| 42 2c 4a 29 20 2d 20 41 | 5b 5d 3a 3d 42 5b 5d 2f |B,J) - A|[]:=B[]/|
|00000580| 4a 20 0d 02 ee 0d dd f2 | 64 69 76 61 62 6a 20 0d |J ......|divabj .|
|00000590| 02 f8 09 43 25 3d 30 20 | 0d 03 02 10 e3 49 25 3d |...C%=0 |.....I%=|
|000005a0| 50 32 25 20 b8 4c 25 20 | 0d 03 0c 12 51 31 25 3d |P2% .L% |....Q1%=|
|000005b0| 42 25 28 49 25 29 2b 43 | 25 20 0d 03 16 11 51 25 |B%(I%)+C|% ....Q%|
|000005c0| 3d a8 28 51 31 25 2f 4a | 25 29 20 0d 03 20 0e 41 |=.(Q1%/J|%) .. .A|
|000005d0| 25 28 49 25 29 3d 51 25 | 20 0d 03 2a 16 43 25 3d |%(I%)=Q%| ..*.C%=|
|000005e0| 28 51 31 25 2d 51 25 2a | 4a 25 29 2a 42 25 20 0d |(Q1%-Q%*|J%)*B% .|
|000005f0| 03 34 06 ed 20 0d 03 3e | 06 e1 20 0d 03 48 06 3a |.4.. ..>|.. ..H.:|
|00000600| 20 0d 03 52 1f f4 20 41 | 44 44 20 28 58 2c 41 29 | ..R.. A|DD (X,A)|
|00000610| 20 2d 20 58 5b 5d 3a 3d | 58 5b 5d 2b 41 5b 5d 20 | - X[]:=|X[]+A[] |
|00000620| 0d 03 5c 0c dd f2 61 64 | 64 78 61 20 0d 03 66 09 |..\...ad|dxa ..f.|
|00000630| 43 25 3d 30 20 0d 03 70 | 14 e3 49 25 3d 4c 25 20 |C%=0 ..p|..I%=L% |
|00000640| b8 50 32 25 20 88 2d 31 | 20 0d 03 7a 18 53 25 3d |.P2% .-1| ..z.S%=|
|00000650| 58 25 28 49 25 29 2b 41 | 25 28 49 25 29 2b 43 25 |X%(I%)+A|%(I%)+C%|
|00000660| 20 0d 03 84 20 e7 53 25 | 3e 3d 42 25 3a 53 25 3d | ... .S%|>=B%:S%=|
|00000670| 53 25 2d 42 25 3a 43 25 | 3d 31 3a 8b 43 25 3d 30 |S%-B%:C%|=1:.C%=0|
|00000680| 20 0d 03 8e 0e 58 25 28 | 49 25 29 3d 53 25 20 0d | ....X%(|I%)=S% .|
|00000690| 03 98 06 ed 20 0d 03 a2 | 1a e7 43 25 3d 31 3a 58 |.... ...|..C%=1:X|
|000006a0| 25 28 49 25 29 3d 58 25 | 28 49 25 29 2b 31 20 0d |%(I%)=X%|(I%)+1 .|
|000006b0| 03 ac 06 e1 20 0d 03 b6 | 06 3a 20 0d 03 c0 24 f4 |.... ...|.: ...$.|
|000006c0| 20 53 55 42 54 52 41 43 | 54 20 28 58 2c 41 29 20 | SUBTRAC|T (X,A) |
|000006d0| 2d 20 58 5b 5d 3a 3d 58 | 5b 5d 2d 41 5b 5d 20 0d |- X[]:=X|[]-A[] .|
|000006e0| 03 ca 0c dd f2 73 75 62 | 78 61 20 0d 03 d4 09 43 |.....sub|xa ....C|
|000006f0| 25 3d 30 20 0d 03 de 14 | e3 49 25 3d 4c 25 20 b8 |%=0 ....|.I%=L% .|
|00000700| 50 32 25 20 88 2d 31 20 | 0d 03 e8 11 53 25 3d 41 |P2% .-1 |....S%=A|
|00000710| 25 28 49 25 29 2b 43 25 | 20 0d 03 f2 2b e7 58 25 |%(I%)+C%| ...+.X%|
|00000720| 28 49 25 29 3c 53 25 3a | 58 25 28 49 25 29 3d 58 |(I%)<S%:|X%(I%)=X|
|00000730| 25 28 49 25 29 2b 42 25 | 3a 43 25 3d 31 3a 8b 43 |%(I%)+B%|:C%=1:.C|
|00000740| 25 3d 30 20 0d 03 fc 15 | 58 25 28 49 25 29 3d 58 |%=0 ....|X%(I%)=X|
|00000750| 25 28 49 25 29 2d 53 25 | 20 0d 04 06 06 ed 20 0d |%(I%)-S%| ..... .|
|00000760| 04 10 1a e7 43 25 3d 31 | 3a 58 25 28 49 25 29 3d |....C%=1|:X%(I%)=|
|00000770| 58 25 28 49 25 29 2d 31 | 20 0d 04 1a 06 e1 20 0d |X%(I%)-1| ..... .|
|00000780| 04 24 06 3a 20 0d 04 2e | 22 f4 20 4d 55 4c 54 49 |.$.: ...|". MULTI|
|00000790| 50 4c 59 20 28 58 2c 4d | 29 20 2d 20 58 5b 5d 3a |PLY (X,M|) - X[]:|
|000007a0| 3d 58 5b 5d 2a 4d 20 0d | 04 38 0c dd f2 6d 75 6c |=X[]*M .|.8...mul|
|000007b0| 78 6d 20 0d 04 42 09 43 | 25 3d 30 20 0d 04 4c 12 |xm ..B.C|%=0 ..L.|
|000007c0| e3 49 25 3d 4c 25 20 b8 | 31 20 88 2d 31 20 0d 04 |.I%=L% .|1 .-1 ..|
|000007d0| 56 14 53 25 3d 58 25 28 | 49 25 29 2a 4d 25 2b 43 |V.S%=X%(|I%)*M%+C|
|000007e0| 25 20 0d 04 60 2b e7 53 | 25 3e 3d 42 25 3a 43 25 |% ..`+.S|%>=B%:C%|
|000007f0| 3d a8 28 53 25 2f 42 25 | 29 3a 53 25 3d 53 25 2d |=.(S%/B%|):S%=S%-|
|00000800| 43 25 2a 42 25 3a 8b 20 | 43 25 3d 30 20 0d 04 6a |C%*B%:. |C%=0 ..j|
|00000810| 0e 58 25 28 49 25 29 3d | 53 25 20 0d 04 74 06 ed |.X%(I%)=|S% ..t..|
|00000820| 20 0d 04 7e 0d 58 25 28 | 30 29 3d 43 25 20 0d 04 | ..~.X%(|0)=C% ..|
|00000830| 88 06 e1 20 0d 04 92 06 | 3a 20 0d 04 9c 1f f4 20 |... ....|: ..... |
|00000840| 41 44 44 20 28 59 2c 58 | 29 20 2d 20 59 5b 5d 3a |ADD (Y,X|) - Y[]:|
|00000850| 3d 59 5b 5d 2b 58 5b 5d | 20 0d 04 a6 0c dd f2 61 |=Y[]+X[]| ......a|
|00000860| 64 64 79 78 20 0d 04 b0 | 09 43 25 3d 30 20 0d 04 |ddyx ...|.C%=0 ..|
|00000870| ba 12 e3 49 25 3d 4c 25 | 20 b8 31 20 88 2d 31 20 |...I%=L%| .1 .-1 |
|00000880| 0d 04 c4 18 53 25 3d 59 | 25 28 49 25 29 2b 58 25 |....S%=Y|%(I%)+X%|
|00000890| 28 49 25 29 2b 43 25 20 | 0d 04 ce 20 e7 53 25 3e |(I%)+C% |... .S%>|
|000008a0| 3d 42 25 3a 53 25 3d 53 | 25 2d 42 25 3a 43 25 3d |=B%:S%=S|%-B%:C%=|
|000008b0| 31 3a 8b 43 25 3d 30 20 | 0d 04 d8 0e 59 25 28 49 |1:.C%=0 |....Y%(I|
|000008c0| 25 29 3d 53 25 20 0d 04 | e2 06 ed 20 0d 04 ec 19 |%)=S% ..|... ....|
|000008d0| 59 25 28 30 29 3d 59 25 | 28 30 29 2b 58 25 28 30 |Y%(0)=Y%|(0)+X%(0|
|000008e0| 29 2b 43 25 20 0d 04 f6 | 06 e1 20 0d 05 00 06 3a |)+C% ...|.. ....:|
|000008f0| 20 0d 05 0a 25 f4 20 53 | 55 42 54 52 41 43 54 20 | ...%. S|UBTRACT |
|00000900| 28 59 2c 58 29 20 2d 20 | 20 59 5b 5d 3a 3d 59 5b |(Y,X) - | Y[]:=Y[|
|00000910| 5d 2d 58 5b 5d 20 0d 05 | 14 0c dd f2 73 75 62 79 |]-X[] ..|....suby|
|00000920| 78 20 0d 05 1e 09 43 25 | 3d 30 20 0d 05 28 12 e3 |x ....C%|=0 ..(..|
|00000930| 49 25 3d 4c 25 20 b8 31 | 20 88 2d 31 20 0d 05 32 |I%=L% .1| .-1 ..2|
|00000940| 11 53 25 3d 58 25 28 49 | 25 29 2b 43 25 20 0d 05 |.S%=X%(I|%)+C% ..|
|00000950| 3c 2b e7 59 25 28 49 25 | 29 3c 53 25 3a 59 25 28 |<+.Y%(I%|)<S%:Y%(|
|00000960| 49 25 29 3d 59 25 28 49 | 25 29 2b 42 25 3a 43 25 |I%)=Y%(I|%)+B%:C%|
|00000970| 3d 31 3a 8b 43 25 3d 30 | 20 0d 05 46 15 59 25 28 |=1:.C%=0| ..F.Y%(|
|00000980| 49 25 29 3d 59 25 28 49 | 25 29 2d 53 25 20 0d 05 |I%)=Y%(I|%)-S% ..|
|00000990| 50 06 ed 20 0d 05 5a 19 | 59 25 28 30 29 3d 59 25 |P.. ..Z.|Y%(0)=Y%|
|000009a0| 28 30 29 2d 58 25 28 30 | 29 2d 43 25 20 0d 05 64 |(0)-X%(0|)-C% ..d|
|000009b0| 06 e1 20 0d 05 6e 06 3a | 20 0d 05 78 0d f4 20 4f |.. ..n.:| ..x.. O|
|000009c0| 55 54 50 55 54 20 0d 05 | 82 0a dd f2 6f 75 74 20 |UTPUT ..|....out |
|000009d0| 0d 05 8c 19 f1 22 50 49 | 3d 2e 2e 2e 22 27 c3 59 |....."PI|=..."'.Y|
|000009e0| 25 28 30 29 22 2e 22 3b | 20 0d 05 96 0a 59 24 3d |%(0)".";| ....Y$=|
|000009f0| 22 22 20 0d 05 a0 09 4a | 25 3d 30 20 0d 05 aa 0b |"" ....J|%=0 ....|
|00000a00| f5 20 4b 25 3d 30 20 0d | 05 b4 16 f5 20 4a 25 3d |. K%=0 .|.... J%=|
|00000a10| 4a 25 2b 31 3a 4b 25 3d | 4b 25 2b 31 20 0d 05 be |J%+1:K%=|K%+1 ...|
|00000a20| 26 41 24 3d c2 22 30 30 | 30 30 30 22 2b c3 28 59 |&A$=."00|000"+.(Y|
|00000a30| 25 28 4a 25 29 29 2c 35 | 29 3a 59 24 3d 59 24 2b |%(J%)),5|):Y$=Y$+|
|00000a40| 41 24 20 0d 05 c8 14 fd | 4b 25 3d 31 30 20 84 4a |A$ .....|K%=10 .J|
|00000a50| 25 3d 4c 25 2d 32 20 0d | 05 d2 0f f1 8a 32 29 3b |%=L%-2 .|.....2);|
|00000a60| 3a 50 25 3d 31 20 0d 05 | dc 30 f5 20 f1 c1 59 24 |:P%=1 ..|.0. ..Y$|
|00000a70| 2c 50 25 2c 31 30 29 22 | 20 22 3b 3a 50 25 3d 50 |,P%,10)"| ";:P%=P|
|00000a80| 25 2b 31 30 3a fd 50 25 | 3d 35 31 20 84 50 25 3e |%+10:.P%|=51 .P%>|
|00000a90| a9 59 24 3a f1 20 0d 05 | e6 0a 59 24 3d 22 22 20 |.Y$:. ..|..Y$="" |
|00000aa0| 0d 05 f0 0d fd 4a 25 3d | 4c 25 2d 32 20 0d 05 fa |.....J%=|L%-2 ...|
|00000ab0| 0e f1 c4 35 36 2c 22 2d | 22 29 20 0d 06 04 06 e1 |...56,"-|") .....|
|00000ac0| 20 0d 06 0e 06 3a 20 0d | ff                      | ....: .|.       |
+--------+-------------------------+-------------------------+--------+--------+